home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / 3266.ZIP / POP10.EXE / POP10.MNU next >
Text File  |  1991-08-20  |  35KB  |  1,991 lines
  1. ***POP10
  2. **P10S
  3. [AutoCAD]^C^C$P10=P10X $P10=P10S $P1=POP1 $P3=POP3
  4. [* * * *]$S=OSNAPB
  5. [Setup]^C^C^P(progn(prompt "Loading setup...   ")(load "setup")) ^P$P10=P10X $P10=P10UNITS $P10=*
  6. [~]
  7. [BLOCKS]$P10=P10X $P10=P10BL
  8. [DIM:]$P10=P10X $P10=P10DIM ^C^CDIM
  9. [DISPLAY]$P10=P10X $P10=P10DS
  10. [DRAW]$P10=P10X $P10=P10DR
  11. [EDIT]$P10=P10X $P10=P10ED
  12. [INQUIRY]$P10=P10X $P10=P10INQ
  13. [LAYER:]$P10=P10X $P10=P10LAYER ^C^CLAYER
  14. [SETTINGS]$P10=P10X $P10=P10SET
  15. [PLOT]$P10=P10X $P10=P10PLOT
  16. [UCS:]$P10=P10X $P10=P10UCS1 ^C^CUCS
  17. [UTILITY]$P10=P10X $P10=P10UT
  18. [~]
  19. [3D]$P10=P10X $P10=P103D
  20. [ASHADE]^C^C^P(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  21. (setq *error* m:err m:err nil)(princ))(cond ((null C:SCENE)(vmon)+
  22. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  23. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  24. (menucmd "S=X")(menucmd "S=ASHADE")(setq *error* m:err m:err nil))(progn (terpri);+
  25. (prompt "The file 'Ashade.lsp' was not found in your current search directories.")+
  26. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  27. (setq *error* m:err m:err nil)(princ))))+
  28. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=ASHADE")(princ))) ^P
  29. [~]
  30. [SAVE:]^C^CSAVE
  31. **P10X 3
  32. [~]
  33. [~]
  34. [~]
  35. [~]
  36. [~]
  37. [~]
  38. [~]
  39. [~]
  40. [~]
  41. [~]
  42. [~]
  43. [~]
  44. [~]
  45. [~]
  46. [~]
  47. [__LAST__]$S= $S=
  48. [  DRAW  ]^C^C$P10=P10X $P10=P10DR
  49. [  EDIT  ]^C^C$P10=P10X $P10=P10ED
  50. **P10BL 3
  51. [ATTDEF:]$P10=P10X $P10=P10ATTDEF ^C^CATTDEF
  52. [BASE:]^C^CBASE
  53. [BLOCK:]$P10=P10X $P10=P10BLOCK ^C^CBLOCK
  54. [INSERT:]$P10=P10X $P10=P10INSERT ^C^CINSERT
  55. [MINSERT:]$P10=P10X $P10=P10MINSERT ^C^CMINSERT
  56. [WBLOCK:]$P10=P10X $P10=P10WBLOCK ^C^CWBLOCK
  57. **P10DS 3
  58. [~]
  59. [ATTDISP:]$P10=P10X $P10=P10ATTDISP ^C^CATTDISP
  60. [DVIEW:]$P10=P10X $P10=P10DVIEW ^C^CDVIEW
  61. [PAN:]'PAN
  62. [PLAN:]$P10=P10X $P10=P10PLAN ^C^CPLAN
  63. [REDRAW:]'REDRAW
  64. [REDRALL:]'REDRAWALL
  65. [REGEN:]^C^CREGEN
  66. [REGNALL:]^C^CREGENALL
  67. [RGNAUTO:]$P10=P10X $P10=P10RGNAUTO ^C^CREGENAUTO
  68. [VIEW:]$P10=P10X $P10=P10VIEW 'VIEW
  69. [VIEWRES:]$P10=P10X $P10=P10VIEWRES ^C^CVIEWRES
  70. [VPOINT:]$P10=P10X $P10=P10VPOINT ^C^CVPOINT
  71. [ZOOM:]$P10=P10X $P10=P10ZOOM 'ZOOM
  72. **P10DR 3
  73. [ARC]$P10=P10X $P10=P10ARC
  74. [ATTDEF:]$P10=P10X $P10=P10ATTDEF ^C^CATTDEF
  75. [CIRCLE]$P10=P10X $P10=P10CIRCLE
  76. [DONUT:]^C^CDONUT
  77. [DTEXT:]$P10=P10X $P10=P10DTEXT ^C^CDTEXT
  78. [ELLIPSE:]$P10=P10X $P10=P10ELLIPSE ^C^CELLIPSE
  79. [HATCH:]$P10=P10X $P10=P10HATCH ^C^CHATCH
  80. [INSERT:]$P10=P10X $P10=P10INSERT ^C^CINSERT
  81. [LINE:]$P10=P10X $P10=P10LINE ^C^CLINE
  82. [MINSERT:]$P10=P10X $P10=P10MINSERT ^C^CMINSERT
  83. [OFFSET:]$P10=P10X $P10=P10OFFSET ^C^COFFSET
  84. [PLINE:]$P10=P10X $P10=P10PLINE ^C^CPLINE
  85. [~]
  86. [next]$P10=P10X $P10=P10DR2
  87. **P10DR2 3
  88. [POINT:]$P10=P10X $P10=P10POINT ^C^CPOINT
  89. [POLYGON:]$P10=P10X $P10=P10POLYGON ^C^CPOLYGON
  90. [SHAPE:]$P10=P10X $P10=P10SHAPE ^C^CSHAPE
  91. [SKETCH:]$P10=P10X $P10=P10SKETCH ^C^CSKETCH
  92. [SOLID:]$P10=P10X $P10=P10SOLID ^C^CSOLID
  93. [TEXT:]$P10=P10X $P10=P10TEXT ^C^CTEXT
  94. [TRACE:]$P10=P10X $P10=P10TRACE ^C^CTRACE
  95. [3DFACE:]$P10=P10X $P10=P103DFACE ^C^C3DFACE
  96. [~]
  97. [3D]$P10=P10X $P10=P103D
  98. [~]
  99. [~]
  100. [~]
  101. [previous]$P10=P10X $P10=P10DR
  102. [~]
  103. [__LAST__]$S= $S=
  104. **P10ED 3
  105. [ARRAY:]$P10=P10X $P10=P10ARRAY ^C^CARRAY
  106. [ATTEDIT:]$P10=P10X $P10=P10ATTEDIT ^C^CATTEDIT
  107. [DDATTE:]^C^CDDATTE
  108. [BREAK:]$P10=P10X $P10=P10BREAK ^C^CBREAK
  109. [CHAMFER:]$P10=P10X $P10=P10CHAMFER ^C^CCHAMFER
  110. [CHANGE:]$P10=P10X $P10=P10CHANGE ^C^CCHANGE
  111. [CHPROP:]$P10=P10X $P10=P10CHPROP ^C^CCHPROP
  112. [COPY:]$P10=P10X $P10=P10COPY ^C^CCOPY
  113. [DIVIDE:]$P10=P10X $P10=P10DIVIDE ^C^CDIVIDE
  114. [ERASE:]$P10=P10X $P10=P10ERASE ^C^CERASE
  115. [EXPLODE:]^C^CEXPLODE
  116. [EXTEND:]$P10=P10X $P10=P10EXTEND ^C^CEXTEND
  117. [~]
  118. [next]$P10=P10X $P10=P10ED2
  119. **P10ED2 3
  120. [FILLET:]$P10=P10X $P10=P10FILLET ^C^CFILLET
  121. [MEASURE:]$P10=P10X $P10=P10MEASURE ^C^CMEASURE
  122. [MIRROR:]$P10=P10X $P10=P10MIRROR ^C^CMIRROR
  123. [MOVE:]$P10=P10X $P10=P10MOVE ^C^CMOVE
  124. [OFFSET:]$P10=P10X $P10=P10OFFSET ^C^COFFSET
  125. [PEDIT:]^C^C^P+
  126. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  127. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  128. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  129. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  130. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  131. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  132. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  133. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  134. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  135. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  136. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  137. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  138. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  139. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  140. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  141. [ROTATE:]$P10=P10X $P10=P10ROTATE ^C^CROTATE
  142. [SELECT:]$P10=P10X $P10=P10SELECT ^C^CSELECT
  143. [SCALE:]$P10=P10X $P10=P10SCALE ^C^CSCALE
  144. [STRETCH:]$P10=P10X $P10=P10STRETCH ^C^CSTRETCH C
  145. [TRIM:]$P10=P10X $P10=P10TRIM ^C^CTRIM
  146. [UNDO:]$P10=P10X $P10=P10UNDO ^C^CUNDO
  147. [~]
  148. [previous]$P10=P10X $P10=P10ED
  149. **P10INQ 5
  150. [AREA:]$P10=P10X $P10=P10AREA ^C^CAREA
  151. [DBLIST:]^CDBLIST
  152. [DIST:]^C^CDIST
  153. [HELP:]'HELP
  154. [ID:]$P10=P10X $P10=P10ID ^C^CID
  155. [LIST:]$P10=P10X $P10=P10LIST ^C^CLIST
  156. [STATUS:]^C^CSTATUS
  157. [TIME:]^C^CTIME
  158. **P10SET 3
  159. [DDEMODES]'DDEMODES
  160. [DDRMODES]'DDRMODES
  161. [--------]
  162. [APERTUR:]$P10=P10X $P10=P10APERTURE ^C^CAPERTURE
  163. [AXIS:]$P10=P10X $P10=P10AXIS ^C^CAXIS
  164. [BLIPS:]$P10=P10X $P10=P10BLIPMODE ^C^CBLIPMODE
  165. [COLOR:]$P10=P10X $P10=P10COLOR ^C^CCOLOR
  166. [DRAGMOD:]$P10=P10X $P10=P10DRAGMODE ^C^CDRAGMODE
  167. [ELEV:]^C^CELEV
  168. [GRID:]$P10=P10X $P10=P10GRID ^C^CGRID
  169. [HANDLES:]$P10=P10X $P10=P10HANDLES ^C^CHANDLES
  170. [LINETYP:]$P10=P10X $P10=P10LINETYPE ^C^CLINETYPE
  171. [LIMITS:]$P10=P10X $P10=P10LIMITS ^C^CLIMITS
  172. [~]
  173. [next]$P10=P10X $P10=P10SET2
  174. **P10SET2 3
  175. [LTSCALE:]^C^CLTSCALE
  176. [OSNAP:]$P10=P10X $P10=P10OSNAPC ^C^COSNAP
  177. [QTEXT:]$P10=P10X $P10=P10QTEXT ^C^CQTEXT
  178. [SETVAR:]$P10=P10X $P10=P10SETVAR 'SETVAR
  179. [SNAP:]$P10=P10X $P10=P10SNAP ^C^CSNAP
  180. [STYLE:]$P10=P10X $P10=P10STYLE ^C^CSTYLE
  181. [TABLET:]$P10=P10X $P10=P10TABLET ^C^CTABLET
  182. [UCS:]$P10=P10X $P10=P10UCS1 ^C^CUCS
  183. [UCSICON:]$P10=P10X $P10=P10UCSICON ^C^CUCSICON
  184. [UNITS:]^CUNITS
  185. [VPORTS:]$P10=P10X $P10=P10VPORTS ^C^CVPORTS
  186. [~]
  187. [~]
  188. [~]
  189. [previous]$P10=P10X $P10=P10SET
  190. **P10PLOT 3
  191. [~]
  192. [ C   D]
  193. [ H   E]
  194. [ O   V]
  195. [ O   I]
  196. [ S   C]
  197. [ E   E]
  198. [~]
  199. [~]
  200. [PLOTTER]^C^CPLOT
  201. [~]
  202. [PRINTER]^C^CPRPLOT
  203. **P10UT 3
  204. [ATTEXT:]$P10=P10X $P10=P10ATTEXT ^C^CATTEXT
  205. [DXF/DXB]$P10=P10X $P10=P10DXF
  206. [FILES:]^C^CFILES
  207. [IGES]$P10=P10X $P10=P10IGES
  208. [MENU:]$P10=P10X $P10=P10CHTEMP ^C^CMENU
  209. [PURGE:]$P10=P10X $P10=P10PURGE ^C^CPURGE
  210. [RENAME:]$P10=P10X $P10=P10RENAME ^C^CRENAME
  211. [SCRIPT:]$P10=P10X $P10=P10SCRIPT ^C^CSCRIPT
  212. [SLIDES]$P10=P10X $P10=P10SLIDES
  213. [~]
  214. [External]$P10=P10X $P10=P10EXCOMDS
  215. [Commands]$P10=P10X $P10=P10EXCOMDS
  216. [~]
  217. [END]$P10=P10X $P10=P10END
  218. [QUIT]$P10=P10X $P10=P10QUIT
  219. **P10OSNAPB 2
  220. [  HELP  ]$S= 'help 
  221. [CENter]CENTER $S=
  222. [ENDpoint]ENDPOINT $S=
  223. [INSert]INSERT $S=
  224. [INTersec]INTERSEC $S=
  225. [MIDpoint]MIDPOINT $S=
  226. [NEArest]NEAREST $S=
  227. [NODe]NODE $S=
  228. [PERpend]PERPEND $S=
  229. [QUAdrant]QUADRANT $S=
  230. [QUICK,]QUICK,^Z
  231. [TANgent]TANGENT $S=
  232. [NONE]NONE $S=
  233. [CANCEL:]^C^C$S=
  234. [U:]^C^CU $S=
  235. [REDO:]^C^CREDO $S=
  236. [REDRAW:]'REDRAW $S=
  237. [SETVAR:]$S= 'SETVAR
  238. [__LAST__]$S=
  239. **P10BLOCK 3
  240. [BLOCK:]^C^CBLOCK
  241. ?
  242. [~]
  243. Window
  244. Last
  245. Previous
  246. Crossing
  247. Remove
  248. Add
  249. [~]
  250. Yes
  251. [OOPS]^C^COOPS
  252. **P10INSERT 3
  253. [INSERT:]^C^CINSERT
  254. ?
  255. [*]*\
  256. corner
  257. xyz
  258. drag
  259. [~]
  260. Scale
  261. Xscale
  262. Yscale
  263. Zscale
  264. Rotate
  265. **P10WBLOCK 3
  266. [WBLOCK:]^C^CWBLOCK
  267. [~]
  268. =
  269. *
  270. [blank];
  271. [~]
  272. Window
  273. Last
  274. Previous
  275. Crossing
  276. Remove
  277. Add
  278. Undo
  279. **P10MINSERT 3
  280. [MINSERT:]^C^CMINSERT
  281. ?
  282. [~]
  283. corner
  284. xyz
  285. drag
  286. **P10DIM 3
  287. [DIM:]^C^CDIM
  288. [DIM1:]^C^CDIM1
  289. [~]
  290. [LINEAR]$P10=P10X $P10=P10DIMLINEAR
  291. angular
  292. diameter
  293. radius
  294. center
  295. leader
  296. [Dim Vars]$P10=P10X $P10=P10VAR1
  297. [redraw]'REDRAW
  298. status
  299. undo
  300. style
  301. [EXIT]EXIT;$P10=P10X $P10=P10S
  302. [next]$P10=P10X $P10=P10FORMAT
  303. **P10DIMLINEAR 3
  304. [DIM:]^C^CDIM
  305. [DIM1:]^C^CDIM1
  306. [~]
  307. horiz
  308. vertical
  309. aligned
  310. rotated
  311. [~]
  312. [baseline]^C^Cdim BASE
  313. [continue]^C^Cdim CONT
  314. [~]
  315. [~]
  316. [~]
  317. [previous]$P10=P10X $P10=P10DIM
  318. **P10ATTDEF 3
  319. [ATTDEF:]^C^CATTDEF
  320. [~]
  321. Invisibl
  322. Constant
  323. Verify
  324. [Preset]P
  325. [~]
  326. Aligned
  327. [Centered]C
  328. Fit
  329. Middle
  330. Right
  331. Style
  332. **P10LAYER 3
  333. [DDLMODES]'DDLMODES
  334. [LAYER:]^C^CLAYER
  335. [?]? *
  336. [~]
  337. Make
  338. Set
  339. New
  340. ON
  341. OFF
  342. [Color]COLOR $P10=P10X $P10=P10LACOLOR \$P10=P10X $P10=P10LAYER
  343. [Chroma]^C^CVSLIDE chroma
  344. [ Restore]'REDRAW
  345. [Ltype]LTYPE $P10=P10X $P10=P10LALT \$P10=P10X $P10=P10LAYER
  346. Freeze
  347. Thaw
  348. **P10LACOLOR 3
  349. [COLOR]
  350. [~]
  351. red
  352. yellow
  353. green
  354. cyan
  355. blue
  356. magenta
  357. white
  358. [~]
  359. [~]
  360. [~]
  361. [~]
  362. [~]
  363. **P10LALT 3
  364. [LINETYPE]
  365. [~]
  366. [contin.]CONTINUOUS
  367. dashed
  368. hidden
  369. center
  370. phantom
  371. dot
  372. dashdot
  373. border
  374. divide
  375. [~]
  376. **P10ZOOM 3
  377. [ZOOM:]'ZOOM
  378. [~]
  379. All
  380. [Center]C
  381. Dynamic
  382. Extents
  383. Left
  384. Previous
  385. Window
  386. [~]
  387. Yes
  388. No
  389. **P10ATTDISP 3
  390. [ATTDISP:]^C^CATTDISP
  391. [~]
  392. Normal
  393. ON
  394. OFF
  395. **P10DVIEW 3
  396. [DVIEW:]^C^CDview
  397. [~]
  398. Window
  399. Last
  400. Previous
  401. Crossing
  402. Remove
  403. Add
  404. [~]
  405. [By Layer]^P(defun berror (msg)(setq *error* m:err m:err nil)(princ))+
  406. (progn (setq m:err *error* *error* berror);+
  407. (setq l(getstring (strcat "Layer name: <" (getvar "clayer") "> ")))+
  408. (if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
  409. (setq s(ssget "X" (list(cons 8 l)))))(setq *error* m:err m:err nil) s) ^P
  410. [--------]
  411. [Dviewblk]^C^CDVIEW;;
  412. [~]
  413. [ Dview ]$P10=P10X $P10=P10DVIEW1
  414. [Options]$P10=P10X $P10=P10DVIEW1
  415. **P10DVIEW1 3
  416. CAmera
  417. TArget
  418. Distance
  419. POints
  420. PAn
  421. Zoom
  422. TWist
  423. [CLip]Clip $P10=P10X $P10=P10DVIEW2
  424. Hide
  425. Off
  426. Undo
  427. [~]
  428. [eXit]Exit $P10=P10X $P10=P10S
  429. **P10DVIEW2 3
  430. [Back]Back $P10=P10X $P10=P10BACK
  431. [Front]Front $P10=P10X $P10=P10FRONT
  432. [Off]Off $P10=P10X $P10=P10DVIEW1
  433. **P10BACK 3
  434. [ back]
  435. [clipping]
  436. [~]
  437. [ON]On $P10=P10X $P10=P10DVIEW1
  438. [OFF]Off $P10=P10X $P10=P10DVIEW1
  439. **P10FRONT 3
  440. [ front]
  441. [clipping]
  442. [~]
  443. [ON]On $P10=P10X $P10=P10DVIEW1
  444. [OFF]Off $P10=P10X $P10=P10DVIEW1
  445. [~]
  446. [Eye]Eye $P10=P10X $P10=P10DVIEW1
  447. **P10RGNAUTO 3
  448. [RGNAUTO:]^C^CREGENAUTO
  449. [~]
  450. [ON]On $P10=P10X $P10=P10DS
  451. [OFF]Off $P10=P10X $P10=P10DS
  452. **P10VIEW 3
  453. [VIEW:]'VIEW
  454. ?
  455. [~]
  456. [Delete]Delete;
  457. [Restore]Restore;
  458. [Save]Save;
  459. [Window]Window;
  460. **P10VPORTS 3
  461. [VPORTS:]^C^CVPORTS
  462. [~]
  463. Save
  464. Restore
  465. Delete
  466. Join
  467. Single
  468. ?
  469. [2]2 $P10=P10X $P10=P10VP2
  470. [3]3 $P10=P10X $P10=P10VP3
  471. 4
  472. **P10VP2 3
  473. [~]
  474. [Horizont]H $P10=P10X $P10=P10VPORTS
  475. [Vertical]V $P10=P10X $P10=P10VPORTS
  476. **P10VP3 3
  477. [~]
  478. [Horizont]H $P10=P10X $P10=P10VPORTS
  479. [Vertical]V $P10=P10X $P10=P10VPORTS
  480. [Above]A $P10=P10X $P10=P10VPORTS
  481. [Below]B $P10=P10X $P10=P10VPORTS
  482. [Left]L $P10=P10X $P10=P10VPORTS
  483. [Right]R $P10=P10X $P10=P10VPORTS
  484. **P10LINE 3
  485. [LINE:]^C^CLINE
  486. [~]
  487. [continue]^C^CLINE;;
  488. close
  489. undo
  490. .x
  491. .y
  492. .z
  493. .xy
  494. .xz
  495. .yz
  496. **P103D 3
  497. [EDGSURF:]^C^CEDGESURF
  498. [REVSURF:]^C^CREVSURF
  499. [RULSURF:]^C^CRULESURF
  500. [TABSURF:]^C^CTABSURF
  501. [~]
  502. [Surftb1:]'SETVAR SURFTAB1
  503. [Surftb2:]'SETVAR SURFTAB2
  504. [~]
  505. [3DFACE:]$P10=P10X $P10=P103DFACE ^C^C3DFACE
  506. [3DMESH:]^C^C3DMESH
  507. [3DPOLY:]$P10=P10X $P10=P103DPOLY ^C^C3DPOLY
  508. [~]
  509. [  3d   ]^C^C^P(progn(setq m:err *error*)(princ))+
  510. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  511. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  512. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  513. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  514. (prompt "Check installation of the Support Files and try again.");+
  515. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  516. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  517. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  518. [objects]^C^C^P(progn(setq m:err *error*)(princ))+
  519. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  520. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  521. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  522. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  523. (prompt "Check installation of the Support Files and try again.");+
  524. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  525. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  526. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  527. [~]
  528. **P103D2 3
  529. [~]
  530. Box
  531. Cone
  532. Dish
  533. Dome
  534. Mesh
  535. Pyramid
  536. Sphere
  537. Torus
  538. Wedge
  539. **P10ELEVTHK 3
  540. [ELEV:]^C^CELEV
  541. [~]
  542. [CHANGE:]^C^CCHANGE
  543. Window
  544. Last
  545. Previous
  546. Crossing
  547. Remove
  548. Add
  549. Undo
  550. [Elev]PROP E
  551. [Thick]PROP T
  552. **P10HIDE 3
  553. [HIDE ?]
  554. [~]
  555. [YES]^C^CHIDE
  556. [NO]$S= $S=
  557. **P10VPOINT 3
  558. [VPOINT:]^C^CVPOINT
  559. [~]
  560. [rotate]rotate;
  561. [axes];
  562. [plan]none 0,0,1
  563. [~]
  564. [HIDE:]$P10=P10X $P10=P10HIDE
  565. **P10VPOINT3D 3
  566. [ Angle  ]^C^CVPOINT R;;
  567. [from XY ]^C^CVPOINT R;;
  568. [ Plane  ]^C^CVPOINT R;;
  569. [    +80 ]<<80
  570. [    +60 ]<<60
  571. [    +45 ]<<45
  572. [    +30 ]<<30
  573. [    +10 ]<<10
  574. [      0 ]<<0
  575. [    -10 ]<<350
  576. [    -30 ]<<330
  577. [    -45 ]<<315
  578. [    -60 ]<<300
  579. [    -80 ]<<280
  580. **P10PLINE 3
  581. [PLINE:]^C^CPLINE
  582. [~]
  583. [Arc]ARC $P10=P10X $P10=P10PARC
  584. Close
  585. Halfwid
  586. Length
  587. Undo
  588. Width
  589. [~]
  590. [FILL ON]'SETVAR FILLMODE 1
  591. [FILL OFF]'SETVAR FILLMODE 0
  592. **P10PARC 3
  593. [POLYARC]
  594. [~]
  595. [angle]$P10=P10X $P10=P10PARCANG A
  596. [CEnter]$P10=P10X $P10=P10PARCEN CE
  597. [tanDir]D \DRAG
  598. [Radius]$P10=P10X $P10=P10PARCRAD R
  599. [2nd PT]S \DRAG
  600. [CLose]$P10=P10X $P10=P10PLINE CLOSE
  601. [~]
  602. undo
  603. [~]
  604. [contline]$P10=P10X $P10=P10PLINE L
  605. [~]
  606. [PLINE:]$P10=P10X $P10=P10PLINE ^C^CPLINE
  607. **P10PARCANG 3
  608. [ANGLE]
  609. [~]
  610. [center]$P10=P10X $P10=P10PARC Center drag
  611. [radius]$P10=P10X $P10=P10PARC R \
  612. [drag]$P10=P10X $P10=P10PARC drag
  613. **P10PARCEN 3
  614. [CENTER]
  615. [~]
  616. [angle]$P10=P10X $P10=P10PARC A drag
  617. [length]$P10=P10X $P10=P10PARC L drag
  618. [drag]$P10=P10X $P10=P10PARC drag
  619. **P10PARCRAD 3
  620. [RADIUS]
  621. [~]
  622. [angle]A \drag $P10=P10X $P10=P10PARC A \drag
  623. [drag]$P10=P10X $P10=P10PARC drag
  624. **P10OFFSET 3
  625. [OFFSET:]^C^COFFSET
  626. [~]
  627. Through
  628. [~]
  629. [done];
  630. [~]
  631. **P10ARC 3
  632. [ARC]
  633. [~]
  634. [3-point:]^C^CARC \\DRAG
  635. [S,C,E:]^C^CARC \C \DRAG
  636. [S,C,A:]^C^CARC \C \A DRAG
  637. [S,C,L:]^C^CARC \C \L DRAG
  638. [S,E,A:]^C^CARC \E \A
  639. [S,E,R:]^C^CARC \E \R
  640. [S,E,D:]^C^CARC \E \D DRAG
  641. [C,S,E:]^C^CARC C \\DRAG
  642. [C,S,A:]^C^CARC C \\A DRAG
  643. [C,S,L:]^C^CARC C \\L DRAG
  644. [CONTIN:]^C^CARC ;DRAG
  645. **P10popARC 3
  646. [ARC]
  647. [~]
  648. [3-point:]*^C^CARC \\DRAG
  649. [S,C,E:]*^C^CARC \C \DRAG
  650. [S,C,A:]*^C^CARC \C \A DRAG
  651. [S,C,L:]*^C^CARC \C \L DRAG
  652. [S,E,A:]*^C^CARC \E \A
  653. [S,E,R:]*^C^CARC \E \R
  654. [S,E,D:]*^C^CARC \E \D DRAG
  655. [C,S,E:]*^C^CARC C \\DRAG
  656. [C,S,A:]*^C^CARC C \\A DRAG
  657. [C,S,L:]*^C^CARC C \\L DRAG
  658. [CONTIN:]^C^CARC ;DRAG
  659. **P10CIRCLE 3
  660. [CIRCLE]
  661. [~]
  662. [CEN,RAD:]^C^CCIRCLE \DRAG
  663. [CEN,DIA:]^C^CCIRCLE \D
  664. [2 POINT:]^C^CCIRCLE 2P \DRAG
  665. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  666. [TTR:]^C^CCIRCLE TTR
  667. **P10popCIRCL 3
  668. [CIRCLE]
  669. [~]
  670. [CEN,RAD:]*^C^CCIRCLE \DRAG
  671. [CEN,DIA:]*^C^CCIRCLE \D
  672. [2 POINT:]*^C^CCIRCLE 2P \DRAG
  673. [3 POINT:]*^C^CCIRCLE 3P \\DRAG
  674. [TTR:]*^C^CCIRCLE TTR
  675. **P10ASHADE 3
  676. [LIGHTS:]^C^C$P10=P10X $P10=P10LIGHTS LIGHT
  677. [CAMERA:]^C^C$P10=P10X $P10=P10CAMERA CAMERA
  678. [ACTION]^C^C$P10=P10X $P10=P10ACTION
  679. [~]
  680. [CAMVIEW:]^C^CCAMVIEW
  681. **P10LIGHTS 3
  682. [LIGHT:]^C^CLIGHT
  683. [~]
  684. [Point]p
  685. Directed
  686. [~]
  687. [Filters]
  688. .x
  689. .y
  690. .z
  691. .xy
  692. .xz
  693. .yz
  694. [~]
  695. [CAMERA:]^C^C$P10=P10X $P10=P10CAMERA CAMERA
  696. [ACTION]$P10=P10X $P10=P10ACTION
  697. **P10CAMERA 3
  698. [CAMERA:]^C^CCAMERA
  699. [~]
  700. [Filters]
  701. .x
  702. .y
  703. .z
  704. .xy
  705. .xz
  706. .yz
  707. [~]
  708. [CAMVIEW:]^C^CCAMVIEW
  709. [~]
  710. [~]
  711. [LIGHTS:]^C^C$P10=P10X $P10=P10LIGHTS LIGHT
  712. [ACTION]$P10=P10X $P10=P10ACTION
  713. **P10ACTION 3
  714. [ACTION]
  715. [~]
  716. [SCENE:]^C^CSCENE
  717. [FLMROLL:]^C^CFILMROLL
  718. [~]
  719. [~]
  720. [~]
  721. [~]
  722. [~]
  723. [~]
  724. [~]
  725. [~]
  726. [~]
  727. [LIGHTS:]^C^C$P10=P10X $P10=P10LIGHTS LIGHT
  728. [CAMERA:]^C^C$P10=P10X $P10=P10CAMERA CAMERA
  729. **P10ELLIPSE 3
  730. [ELLIPSE:]^C^CELLIPSE
  731. [~]
  732. [Center]C
  733. Rotation
  734. Iso
  735. Diameter
  736. **P10POLYGON 3
  737. [POLYGON:]^C^CPOLYGON
  738. [~]
  739. Edge
  740. [I-scribe]I
  741. [C-scribe]C
  742. **P10SHAPE 3
  743. [SHAPE:]^C^CSHAPE
  744. ?
  745. [~]
  746. [LOAD:]^C^CLOAD
  747. ?
  748. **P10SKETCH 3
  749. [SKETCH:]^C^CSKETCH
  750. [~]
  751. Connect
  752. Erase
  753. Record
  754. [~]
  755. [eXit]x
  756. Quit
  757. [~]
  758. [------]
  759. [SKPOLY:]'SETVAR SKPOLY 1
  760. [SKLINE:]'SETVAR SKPOLY 0
  761. [------]
  762. **P10SOLID 3
  763. [SOLID:]^C^CSOLID
  764. [~]
  765. [FILL ON]'SETVAR FILLMODE 1
  766. [FILL OFF]'SETVAR FILLMODE 0
  767. **P10TRACE 3
  768. [TRACE:]^C^CTRACE
  769. [~]
  770. [FILL ON]'SETVAR FILLMODE 1
  771. [FILL OFF]'SETVAR FILLMODE 0
  772. **P10POINT 3
  773. [POINT:]^C^CPOINT
  774. .x
  775. .y
  776. .z
  777. .xy
  778. .xz
  779. .yz
  780. [~]
  781. [Complex]
  782. [Points]
  783. [example:]^C^CVSLIDE points
  784. [remove]^C^CREDRAW
  785. [example:]^C^CREDRAW
  786. [Pdmode:]'SETVAR PDMODE
  787. [Pdsize:]'SETVAR PDSIZE
  788. **P10HATCH 3
  789. [HATCH:]^C^CHATCH?
  790. [~]
  791. u
  792. u,o
  793. u,i
  794. Yes
  795. [~]
  796. Window
  797. Last
  798. Previous
  799. Crossing
  800. Remove
  801. Add
  802. Undo
  803. **P103DFACE 3
  804. [3DFACE:]^C^C3DFACE
  805. [~]
  806. .x
  807. .y
  808. .z
  809. .xy
  810. .xz
  811. .yz
  812. [~]
  813. [Invisibl]I
  814. [~]
  815. [ShowEdge]^P(setvar "splframe" 1)(prompt "Invisible edges will be SHOWN after next Regeneration.")(princ) ^P
  816. [HideEdge]^P(setvar "splframe" 0)(prompt "Invisible edges will be HIDDEN after next Regeneration.")(princ) ^P
  817. [~]
  818. **P103DPOLY 3
  819. [3DPOLY:]^C^C3DPOLY
  820. [~]
  821. Close
  822. Undo
  823. .x
  824. .y
  825. .z
  826. .xy
  827. .xz
  828. .yz
  829. **P10ID 3
  830. [ID:]^C^CID
  831. [~]
  832. .x
  833. .y
  834. .z
  835. .xy
  836. .xz
  837. .yz
  838. **P10LIMITS 3
  839. [~]
  840. [LIMITS:]^C^CLIMITS
  841. [~]
  842. ON
  843. OFF
  844. **P10UCS1 3
  845. [UCS:]^C^CUCS
  846. [DDUCS:]^C^CDDUCS
  847. [~]
  848. ?
  849. Previous
  850. Restore
  851. [Save]S
  852. Delete
  853. World
  854. [~]
  855. [RENAME:]^C^CRename UCS
  856. [Follow:]'SETVAR UCSFOLLOW
  857. [~]
  858. [next]$P10=P10X $P10=P10UCS2
  859. **P10UCS2 3
  860. [UCS:]$P10=P10X $P10=P10UCS1 ^C^CUCS
  861. [~]
  862. Origin
  863. Zaxis
  864. 3point
  865. [~]
  866. X
  867. Y
  868. Z
  869. [~]
  870. View
  871. Entity
  872. [~]
  873. [previous]$P10=P10X $P10=P10UCS1
  874. **P10UCSICON 3
  875. [UCSICON:]^C^CUCSICON
  876. [~]
  877. ON
  878. OFF
  879. [~]
  880. All
  881. Origin
  882. Noorigin
  883. **P10PLAN 3
  884. [PLAN:]^C^CPLAN
  885. [~]
  886. Current
  887. UCS
  888. World
  889. [~]
  890. [Follow:]'SETVAR UCSFOLLOW
  891. **P10LIST 3
  892. [LIST:]^C^CLIST
  893. [~]
  894. WindowLast
  895. Previous
  896. Crossing
  897. Remove
  898. Add
  899. Undo
  900. **P10AREA 3
  901. [AREA:]^C^CAREA
  902. [~]
  903. Entity
  904. Add
  905. Subtract
  906. **P10TEXT 3
  907. [TEXT:]^C^CTEXT
  908. [DTEXT:]^C^CDTEXT
  909. [~]
  910. aligned
  911. [centered]C
  912. fit
  913. middle
  914. right
  915. style
  916. [~]
  917. [STYLE:]$P10=P10X $P10=P10STYLE ^C^CSTYLE
  918. **P10TEXTSET 5
  919. [DTEXT]$P10=P10X $P10=P10DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2
  920. [~]
  921. [REG.TEXT]$P10=P10X $P10=P10TEXT ^C^C$T4=TEXT1 $T4=TEXT2
  922. [~]
  923. [STYLE:]$P10=P10X $P10=P10STYLE ^C^CSTYLE
  924. **P10STYLE 3
  925. [STYLE:]^C^CSTYLE
  926. ?
  927. [~]
  928. [Fonts]$P10=P10X $P10=P10F1
  929. [~]
  930. Yes
  931. No
  932. [~]
  933. [DTEXT:]$P10=P10X $P10=P10DTEXT ^C^CDTEXT
  934. [TEXT:]$P10=P10X $P10=P10TEXT ^C^CTEXT
  935. **P10F1 3Cyrillic
  936. Cyriltlc
  937. Greekc
  938. Greeks
  939. Gothice
  940. Gothicg
  941. Gothici
  942. Italicc
  943. Italict
  944. Romanc
  945. Romand
  946. Romans
  947. [~]
  948. [~]
  949. [~]
  950. [~]
  951. [next]$P10=P10X $P10=P10F2
  952. [STYLMNU]$P10=P10X $P10=P10STYLE
  953. **P10F2 3
  954. Romant
  955. Scriptc
  956. Scripts
  957. Syastro
  958. Symap
  959. Symath
  960. Symeteo
  961. Symusic
  962. [~]
  963. [~]
  964. [~]
  965. [~]
  966. [~]
  967. [~]
  968. [~]
  969. [~]
  970. [previous]$P10=P10X $P10=P10F1
  971. [STYLMNU]$P10=P10X $P10=P10STYLE
  972. **P10DTEXT 3
  973. [DTEXT:]^C^CDTEXT
  974. [TEXT:]^C^CTEXT
  975. [~]
  976. [centered]C
  977. right
  978. aligned
  979. middle
  980. fit
  981. style
  982. [~]
  983. [STYLE:]$P10=P10X $P10=P10STYLE ^C^CSTYLE
  984. **P10AXIS 3
  985. [AXIS:]^C^CAXIS
  986. [~]
  987. [axs=snap]SNAP
  988. [~]
  989. ON
  990. OFF
  991. Aspect
  992. **P10BLIPMODE 3
  993. [BLIPS:]^C^CBLIPMODE
  994. [~]
  995. ON
  996. OFF
  997. **P10END 3
  998. END ?
  999. [~]
  1000. [Yes]^C^CEND
  1001. [No]$P10=P10X $P10=P10S
  1002. **P10QUIT 3
  1003. [QUIT:]^c^cquit
  1004. [~]
  1005. [Yes]Y
  1006. [No]n $P10=P10X $P10=P10S
  1007. **P10VAR1 3
  1008. [dimalt]$P10=P10X $P10=P10OF DIMALT \
  1009. [dimaltd]DIMALTD \
  1010. [dimaltf]DIMALTF \
  1011. [dimapost]DIMAPOST \
  1012. [dimaso]$P10=P10X $P10=P10OF DIMASO \
  1013. [dimasz]DIMASZ \
  1014. [--------]
  1015. [dimblk]DIMBLK \
  1016. [dimblk1]DIMBLK1 \
  1017. [dimblk2]DIMBLK2 \
  1018. [--------]
  1019. [dimcen]DIMCEN \
  1020. [dimdle]DIMDLE \
  1021. [dimdli]DIMDLI \
  1022. [dimexe]DIMEXE \
  1023. [~]
  1024. [next]$P10=P10X $P10=P10VAR2
  1025. [DIMMENU]$P10=P10X $P10=P10DIM
  1026. [~]
  1027. [~]
  1028. **P10VAR2 3
  1029. [dimexo]DIMEXO \
  1030. [dimlfac]DIMLFAC \
  1031. [dimlim]$P10=P10X $P10=P10OF DIMLIM \
  1032. [dimpost]DIMPOST \
  1033. [dimrnd]DIMRND \
  1034. [dimsah]$P10=P10X $P10=P10OF DIMSAH \
  1035. [dimscale]DIMSCALE \
  1036. [dimse1]$P10=P10X $P10=P10OF DIMSE1 \
  1037. [dimse2]$P10=P10X $P10=P10OF DIMSE2 \
  1038. [dimsho]$P10=P10X $P10=P10OF DIMSHO \
  1039. [dimsoxd]$P10=P10X $P10=P10OF DIMSOXD \
  1040. [dimtad]$P10=P10X $P10=P10OF DIMTAD \
  1041. [dimtih]$P10=P10X $P10=P10OF DIMTIH \
  1042. [dimtix]$P10=P10X $P10=P10OF DIMTIX \
  1043. [~]
  1044. [previous]$P10=P10X $P10=P10VAR1
  1045. [next]$P10=P10X $P10=P10VAR3
  1046. [DIMMENU]$P10=P10X $P10=P10DIM
  1047. [~]
  1048. [~]
  1049. **P10VAR3 3
  1050. [dimtm]DIMTM \
  1051. [dimtofl]$P10=P10X $P10=P10OF DIMTOFL \
  1052. [dimtoh]$P10=P10X $P10=P10OF DIMTOH \
  1053. [dimtol]$P10=P10X $P10=P10OF DIMTOL \
  1054. [dimtp]DIMTP \
  1055. [dimtsz]DIMTSZ \
  1056. [dimtvp]DIMTVP \
  1057. [dimtxt]DIMTXT \
  1058. [dimzin]$P10=P10X $P10=P10DIMZIN DIMZIN \
  1059. [~]
  1060. [~]
  1061. [~]
  1062. [~]
  1063. [~]
  1064. [~]
  1065. [~]
  1066. [previous]$P10=P10X $P10=P10VAR2
  1067. [DIMMENU]$P10=P10X $P10=P10DIM
  1068. **P10OF 3
  1069. [ON]$S= $S= ON
  1070. [~]
  1071. [OFF]$S= $S= OFF
  1072. **P10DIMZIN 4
  1073. [  New]
  1074. [ Dimzin]
  1075. [ Value]
  1076. [~]
  1077. [~]
  1078. [~]
  1079. [~]
  1080. [0]$S= $S= 0
  1081. [1]$S= $S= 1
  1082. [2]$S= $S= 2
  1083. [3]$S= $S= 3
  1084. **P10FORMAT 3
  1085. [DIM:]^C^CDIM
  1086. [DIM1:]^C^CDIM1
  1087. [~]
  1088. [HOMETEXT]$P10=P10X $P10=P10HOMETEXT HOMETEXT
  1089. [UPDATE]$P10=P10X $P10=P10UPDATE UPDATE
  1090. [NEWTEXT]$P10=P10X $P10=P10NEWTEXT NEWTEXT
  1091. [~]
  1092. [~]
  1093. [~]
  1094. [~]
  1095. [~]
  1096. [~]
  1097. [~]
  1098. [~]
  1099. [~]
  1100. [DIMMENU]$P10=P10X $P10=P10DIM
  1101. **P10HOMETEXT 3
  1102. [DIM:]^C^CDIM
  1103. [DIM1:]^C^CDIM1
  1104. [~]
  1105. HOMETEXT
  1106. [~]
  1107. Window
  1108. Last
  1109. Previous
  1110. Crossing
  1111. Remove
  1112. Add
  1113. Undo
  1114. **P10UPDATE 3
  1115. [DIM:]^C^CDIM
  1116. [DIM1:]^C^CDIM1
  1117. [~]
  1118. UPDATE
  1119. [~]
  1120. Window
  1121. Last
  1122. Previous
  1123. Crossing
  1124. Remove
  1125. Add
  1126. Undo
  1127. **P10NEWTEXT 3
  1128. [DIM:]^C^CDIM
  1129. [DIM1:]^C^CDIM1
  1130. [~]
  1131. [NEWTEXT]NEWTEXT
  1132. [~]
  1133. Window
  1134. Last
  1135. Previous
  1136. Crossing
  1137. Remove
  1138. Add
  1139. Undo
  1140. **P10LINETYPE 3
  1141. [LINETYP:]^C^CLINETYPE
  1142. ?
  1143. [~]
  1144. Create
  1145. Load
  1146. [Set]S $P10=P10X $P10=P10CHLT \$P10=P10X $P10=P10LINETYPE
  1147. [~]
  1148. Yes
  1149. No
  1150. **P10LIMITS 3
  1151. [LIMITS:]^C^CLIMITS
  1152. [~]
  1153. On
  1154. Off
  1155. **P10SNAP 3
  1156. [SNAP:]^C^CSNAP
  1157. [~]
  1158. ON
  1159. OFF
  1160. [~]
  1161. [Aspect]A;
  1162. [Rotate]R;
  1163. [~]
  1164. [Style]S;
  1165. [ Iso]Iso;
  1166. [ Standrd]Standard;
  1167. **P10TABLET 3
  1168. [TABLET:]^C^CTABLET
  1169. [~]
  1170. cal
  1171. [config]CFG 4 25 9 11 9 9 13 25 7 Y
  1172. [re-cfg]CFG 4 Y 25 9 11 9 9 13 25 7 Y
  1173. ON
  1174. OFF
  1175. Yes
  1176. No
  1177. **P10OSNAPC 3
  1178. [OSNAP:]^C^COSNAP
  1179. [~]
  1180. [CENter]CENTER\
  1181. [ENDpoint]ENDPOINT\
  1182. [INSert]INSERT\
  1183. [INTersec]INTERSEC\
  1184. [MIDpoint]MIDPOINT\
  1185. [NEArest]NEAREST\
  1186. [NODe]NODE\
  1187. [PERpend]PERPEND\
  1188. [QUAdrant]QUADRANT\
  1189. [TANgent]TANGENT\
  1190. [NONE]^C^COSNAP NONE $S= $S=
  1191. [Quick,]QUICK,^Z
  1192. [,],\
  1193. **P10DRAGMODE 3
  1194. [DRAGMODE]^C^CDRAGMODE
  1195. [~]
  1196. [ON]ON $P10=P10X $P10=P10S
  1197. [OFF]OFF $P10=P10X $P10=P10S
  1198. [Auto]A $P10=P10X $P10=P10S
  1199. [~]
  1200. **P10GRID 3
  1201. [GRID:]^C^CGRID
  1202. [~]
  1203. [grd=snap]SNAP
  1204. [~]
  1205. ON
  1206. OFF
  1207. Aspect
  1208. **P10HANDLES 3
  1209. [HANDLES:]^C^CHANDLES
  1210. [~]
  1211. [ON]ON
  1212. [DESTROY]DESTROY
  1213. [~]
  1214. **P10SETVAR 3
  1215. [SETVAR:]^C^CSETVAR
  1216. ?
  1217. [~]
  1218. ['SETVAR]'SETVAR
  1219. **P10QTEXT 3
  1220. [QTEXT:]^C^CQTEXT
  1221. [~]
  1222. ON
  1223. OFF
  1224. [REGEN:]REGEN
  1225. **P10VIEWRES 3
  1226. [VIEWRES:]^C^CVIEWRES
  1227. [~]
  1228. No
  1229. Yes
  1230. [~]
  1231. 100
  1232. 500
  1233. [~]
  1234. [RGNAUTO:]^C^CREGENAUTO
  1235. [ On]On
  1236. [ Off]Off
  1237. **P10APERTURE 3
  1238. [APERTUR:]'SETVAR APERTURE
  1239. [PICKBOX:]'SETVAR PICKBOX
  1240. [~]
  1241. [1]$S= $S= 1
  1242. [2]$S= $S= 2
  1243. [3]$S= $S= 3
  1244. [4]$S= $S= 4
  1245. [5]$S= $S= 5
  1246. [6]$S= $S= 6
  1247. [7]$S= $S= 7
  1248. [8]$S= $S= 8
  1249. [9]$S= $S= 9
  1250. [10]$S= $S= 10
  1251. [15]$S= $S= 15
  1252. **P10ARRAY 3
  1253. [ARRAY:]^C^CARRAY
  1254. [~]
  1255. Window
  1256. Last
  1257. Previous
  1258. Crossing
  1259. Remove
  1260. Add
  1261. Undo
  1262. [~]
  1263. Rectang
  1264. Polar
  1265. Yes
  1266. No
  1267. **P10ROTATE 3
  1268. [ROTATE:]^C^CROTATE
  1269. [~]
  1270. Window
  1271. Last
  1272. Previous
  1273. Crossing
  1274. Remove
  1275. Add
  1276. Undo
  1277. [~]
  1278. Referenc
  1279. **P10SELECT 3
  1280. [SELECT:]^C^CSELECT
  1281. [~]
  1282. Window
  1283. Last
  1284. Previous
  1285. Crossing
  1286. Remove
  1287. Add
  1288. Undo
  1289. **P10SCALE 3
  1290. [SCALE:]^C^CSCALE
  1291. [~]
  1292. Window
  1293. Last
  1294. Previous
  1295. Crossing
  1296. Remove
  1297. Add
  1298. Undo
  1299. [~]
  1300. Referenc
  1301. **P10BREAK 3
  1302. [BREAK:]^C^CBREAK
  1303. [~]
  1304. First
  1305. @
  1306. **P10BREAK2P 3
  1307. [BREAK:]^C^CBREAK \F
  1308. **P10BREAKSPL 3
  1309. [BREAK:]^C^CBREAK \F \@
  1310. **P10MOVE 3
  1311. [MOVE:]^C^CMOVE
  1312. [~]
  1313. Window
  1314. Last
  1315. Previous
  1316. Crossing
  1317. Remove
  1318. Add
  1319. Undo
  1320. **P10COPY 3
  1321. [COPY:]^C^CCOPY
  1322. [~]
  1323. Window
  1324. Last
  1325. Previous
  1326. Crossing
  1327. Remove
  1328. Add
  1329. Undo
  1330. [~]
  1331. Multiple
  1332. **P10UNDO 3
  1333. [UNDO:]^C^CUNDO
  1334. [~]
  1335. [Back 1]^C^CUNDO 1
  1336. [~]
  1337. [Auto]$P10=P10X $P10=P10UNDOA Auto
  1338. Back
  1339. End
  1340. Group
  1341. Mark
  1342. [Control]$P10=P10X $P10=P10UNDOC Control
  1343. [~]
  1344. Yes
  1345. No
  1346. [~]
  1347. [REDO:]REDO
  1348. **P10UNDOC 3
  1349. All
  1350. None
  1351. One
  1352. **P10UNDOA 3
  1353. On 
  1354. Off
  1355. **P10ERASE 3
  1356. [ERASE:]^C^CERASE
  1357. [~]
  1358. Window
  1359. Last
  1360. Previous
  1361. Crossing
  1362. Remove
  1363. Add
  1364. Undo
  1365. [~]
  1366. [OOPS:]^C^COOPS
  1367. **P10PSEL 3
  1368. [~]
  1369. Window
  1370. Last
  1371. Crossing
  1372. [~]
  1373. Yes
  1374. No
  1375. **P10P0 3
  1376. [PEDIT:]^C^C^P+
  1377. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  1378. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  1379. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  1380. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  1381. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  1382. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  1383. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  1384. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  1385. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  1386. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  1387. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  1388. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  1389. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  1390. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  1391. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  1392.    
  1393. Close
  1394. Open
  1395. Join
  1396. Width
  1397. [Ed Vrtx]E $P10=P10X $P10=P10PVERTED
  1398. [Fit Curv]Fit
  1399. Spline
  1400. Decurve
  1401. [Undo]U
  1402. [eXit]X $P10=P10X $P10=P10S
  1403. [~]
  1404. [PolyVars]$P10=P10X $P10=P10PVARS $i=poly $i=*
  1405. **P10P8 3
  1406. [PEDIT:]^C^C^P+
  1407. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  1408. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  1409. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  1410. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  1411. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  1412. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  1413. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  1414. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  1415. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  1416. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  1417. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  1418. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  1419. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  1420. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  1421. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  1422. [~]
  1423. Close
  1424. Open
  1425. [Ed Vrtx]E $P10=P10X $P10=P103DPVERTED
  1426. Spline
  1427. Decurve
  1428. [Undo]U
  1429. [eXit]X $P10=P10X $P10=P10S
  1430. [~]
  1431. [PolyVars]$P10=P10X $P10=P10PVARS $i=poly $i=*
  1432. **P10P16 3
  1433. [PEDIT:]^C^C^P+
  1434. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  1435. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  1436. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  1437. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  1438. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  1439. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  1440. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  1441. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  1442. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  1443. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  1444. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  1445. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  1446. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  1447. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  1448. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  1449. [~]
  1450. [Ed Vrtx]E $P10=P10X $P10=P103DMVERTED
  1451. Smooth
  1452. Desmooth
  1453. [Mclose]M
  1454. [Nclose]N
  1455. [Mopen]M
  1456. [Nopen]N
  1457. [~]
  1458. [Undo]U
  1459. [eXit]X $P10=P10X $P10=P10S
  1460. [~]
  1461. [PolyVars]$P10=P10X $P10=P10PVARS $i=poly $i=*
  1462. **P10PVERTED 3
  1463. [ED VRTX]
  1464. [~]
  1465. Next
  1466. Previous
  1467. Break
  1468. Insert
  1469. Move
  1470. Straight
  1471. Width
  1472. Tangent
  1473. Go
  1474. Regen
  1475. [Undo]X U $P10=P10X $P10=P10P0
  1476. [eXit]X $P10=P10X $P10=P10P0
  1477. **P103DPVERTED 3
  1478. [ED VRTX]
  1479. [~]
  1480. Next
  1481. Previous
  1482. Break
  1483. Insert
  1484. Move
  1485. Regen
  1486. Straight
  1487. [eXit]X $P10=P10X $P10=P10P8
  1488. **P103DMVERTED 3
  1489. [ED VRTX]
  1490. [~]
  1491. Next
  1492. Previous
  1493. Left
  1494. Right
  1495. Up
  1496. Down
  1497. Move
  1498. Regen
  1499. [eXit]X $P10=P10X $P10=P10P16
  1500. **P10PVARS 3
  1501. [Polyvars]$i=poly $i=*
  1502. [~]
  1503. [SPLframe]'SETVAR SPLFRAME
  1504. [ On]1
  1505. [ Off]0
  1506. [SPLsegs]'SETVAR SPLINESEGS
  1507. [SPLtype]'SETVAR SPLINETYPE
  1508. [ Quad]5
  1509. [ Cubic]6
  1510. [SURFtype]'SETVAR SURFTYPE
  1511. [ Quad]5
  1512. [ Cubic]6
  1513. [ Bezier]8
  1514. [UDensity]'SETVAR SURFU
  1515. [VDensity]'SETVAR SURFV
  1516. **P10TRIM 3
  1517. [TRIM:]^C^CTRIM
  1518. [~]
  1519. Window
  1520. Last
  1521. Previous
  1522. Crossing
  1523. Remove
  1524. Add
  1525. Undo
  1526. **P10ATTEXT 3
  1527. [ATTEXT:]^C^CATTEXT
  1528. [~]
  1529. CDF
  1530. SDF
  1531. DXF
  1532. [Entities]Ent
  1533. [~]
  1534. Window
  1535. Last
  1536. Previous
  1537. Crossing
  1538. Remove
  1539. Add
  1540. Undo
  1541. **P10SLIDES 3
  1542. [MSLIDE:]^C^CMSLIDE
  1543. [~]
  1544. [VSLIDE:]^C^CVSLIDE
  1545. [~]
  1546. **P10SCRIPT 3
  1547. [SCRIPT:]^C^CSCRIPT
  1548. [~]
  1549. [RESUME:]'RESUME
  1550. [RSCRIPT:]^C^CRSCRIPT
  1551. **P10PURGE 3
  1552. [PURGE:]^C^CPURGE
  1553. [~]
  1554. Blocks
  1555. LAyers
  1556. LTypes
  1557. SHapes
  1558. STyles
  1559. All
  1560. [~]
  1561. Yes
  1562. No
  1563. **P10RENAME 3
  1564. [RENAME:]^C^CRENAME
  1565. [~]
  1566. Block
  1567. LAyer
  1568. LType
  1569. Style
  1570. Ucs
  1571. VIew
  1572. VPort
  1573. [~]
  1574. **P10DXF 3
  1575. [DXFIN:]^C^CDXFIN
  1576. [~]
  1577. [DXFOUT:]^C^CDXFOUT
  1578. 16
  1579. Entities
  1580. [~]
  1581. Window
  1582. Last
  1583. Previous
  1584. Crossing
  1585. Remove
  1586. Add
  1587. Undo
  1588. [~]
  1589. [DXBIN:]^C^CDXBIN
  1590. **P10IGES 3
  1591. [IGESIN:]^C^CIGESIN
  1592. [~]
  1593. [IGESOUT:]^C^CIGESOUT
  1594. **P10EXTEND 3
  1595. [EXTEND:]^C^CEXTEND
  1596. [~]
  1597. Window
  1598. Last
  1599. Previous
  1600. Crossing
  1601. Remove
  1602. Add
  1603. Undo
  1604. [~]
  1605. [SELECT:]^C^CSELECT
  1606. [ZOOM W:]'ZOOM W
  1607. **P10STRETCH 3
  1608. [STRETCH:]^C^CSTRETCH C
  1609. [~]
  1610. Window
  1611. Last
  1612. Previous
  1613. Crossing
  1614. Remove
  1615. Add
  1616. Undo
  1617. **P10MIRROR 3
  1618. [MIRROR:]^C^CMIRROR
  1619. Window
  1620. Last
  1621. Previous
  1622. Crossing
  1623. Remove
  1624. Add
  1625. Undo
  1626. [~]
  1627. Yes
  1628. No
  1629. **P10FILLET0 3
  1630. [FILLET:0]^C^CFILLET R 0;;
  1631. [~]
  1632. [polyline]P
  1633. **P10FILLET 3
  1634. [FILLET:]^C^CFILLET
  1635. [~]
  1636. [radius]R \FILLET
  1637. [radius 0]R 0 FILLET
  1638. polyline
  1639. **P10CHAMFER 3
  1640. [CHAMFER:]^C^CCHAMFER
  1641. [~]
  1642. [distance]D \\CHAMFER
  1643. [dist = 0]D 0 0 CHAMFER
  1644. polyline
  1645. **P10DIVIDE 3
  1646. [DIVIDE:]^C^CDIVIDE
  1647. [~]
  1648. Block
  1649. Yes
  1650. No
  1651. **P10MEASURE 3
  1652. [MEASURE:]^C^CMEASURE
  1653. [~]
  1654. Block
  1655. Yes
  1656. No
  1657. **P10CHANGE 3
  1658. [CHANGE:]^C^CCHANGE
  1659. Window
  1660. Last
  1661. Previous
  1662. Crossing
  1663. Remove
  1664. Add
  1665. Undo
  1666. [Color]PROP COLOR $P10=P10X $P10=P10CHCOLOR \ $P10=P10X $P10=P10CHANGE
  1667. [Chroma]^C^CVSLIDE chroma
  1668. [ Restore]^C^CREDRAW
  1669. [Elev]PROP ELEV
  1670. [LAyer]PROP LAYER
  1671. [LType]PROP LT $P10=P10X $P10=P10CHLT \$P10=P10X $P10=P10CHANGE
  1672. [Thicknes]PROP THICKNESS
  1673. **P10CHPROP 3
  1674. [CHPROP:]^C^CCHPROP
  1675. Window
  1676. Last
  1677. Previous
  1678. Crossing
  1679. Remove
  1680. Add 
  1681. Undo
  1682. [Color]COLOR $P10=P10X $P10=P10CHCOLOR \$P10=P10X $P10=P10CHPROP
  1683. [Chroma]^C^CVSLIDE chroma
  1684. [ Restore]^C^CREDRAW
  1685. [LAyer]LAYER
  1686. [LType]LT $P10=P10X $P10=P10CHLT \$P10=P10X $P10=P10CHPROP
  1687. [Thicknes]THICKNESS
  1688. **P10CHCOLOR 3
  1689. [COLOR]
  1690. [~]
  1691. bylayer
  1692. byblock
  1693. [~]
  1694. red
  1695. yellow
  1696. green
  1697. cyan
  1698. blue
  1699. magenta
  1700. white
  1701. **P10CHLT 3
  1702. [LTYPE]
  1703. [~]
  1704. bylayer
  1705. byblock
  1706. [~]
  1707. [contin.]CONTINUOUS
  1708. dashed
  1709. hidden
  1710. center
  1711. phantom
  1712. dot
  1713. dashdot
  1714. border
  1715. divide
  1716. [~]
  1717. **P10COLOR 3
  1718. [COLOR:]^C^CCOLOR
  1719. bylayer
  1720. byblock
  1721. red
  1722. yellow
  1723. green
  1724. cyan
  1725. blue
  1726. magenta
  1727. white
  1728. [~]
  1729. [Chroma]^C^CVSLIDE chroma
  1730. [ Restore]^C^CREDRAW
  1731. **P10ATTEDIT 3
  1732. [ATTEDIT:]^C^CATTEDIT
  1733. Window
  1734. Last
  1735. Crossing
  1736. Remove
  1737. Add
  1738. Undo
  1739. [~]
  1740. [Value]Value $P10=P10X $P10=P10ATTEDIT2
  1741. Position
  1742. Height
  1743. Angle
  1744. Style
  1745. Layer
  1746. [Color]C $P10=P10X $P10=P10ATTCOLOR
  1747. Next
  1748. [~]
  1749. [__LAST__]$S= $S=
  1750. **P10ATTEDIT2 3
  1751. [~]
  1752. [Change]Change $P10=P10X $P10=P10ATTEDIT
  1753. [Replace]Replace $P10=P10X $P10=P10ATTEDIT
  1754. **P10ATTCOLOR 3
  1755. [COLOR]
  1756. [~]
  1757. [red]RED $S= $S=
  1758. [yellow]YELLOW $S= $S=
  1759. [green]GREEN $S= $S=
  1760. [cyan]CYAN $S= $S=
  1761. [blue]BLUE $S= $S=
  1762. [magenta]MAGENTA $S= $S=
  1763. [white]WHITE $S= $S=
  1764. **P10UNITS 2
  1765. [~]
  1766. [UNIT    ]
  1767. [TYPE    ]
  1768. [~]
  1769. [scientfc]1;
  1770. [~]
  1771. [decimal ]2;
  1772. [~]
  1773. [enginrng]3;
  1774. [~]
  1775. [archtect]4;
  1776. [~]
  1777. [metric  ]5;
  1778. [~]
  1779. [~]
  1780. [~]
  1781. [~]
  1782. [~]
  1783. [~]
  1784. **P10U1 2
  1785. [~]
  1786. [Scientfc]
  1787. [Scale   ]
  1788. [~]
  1789. [~]
  1790. [4 TIMES ]4.0;
  1791. [~]
  1792. [2 TIMES ]2.0;
  1793. [~]
  1794. [FULL    ]1.0;
  1795. [~]
  1796. [HALF    ]0.5;
  1797. [~]
  1798. [QUARTER ]0.25;
  1799. [~]
  1800. [OTHER   ]^P0;^P
  1801. [~]
  1802. [~]
  1803. [~]
  1804. [~]
  1805. **P10U2 2
  1806. [~]
  1807. [Decimal ]
  1808. [Scale   ]
  1809. [~]
  1810. [~]
  1811. [4 TIMES ]4.0;
  1812. [~]
  1813. [2 TIMES ]2.0;
  1814. [~]
  1815. [FULL    ]1.0;
  1816. [~]
  1817. [HALF    ]0.5;
  1818. [~]
  1819. [QUARTER ]0.25;
  1820. [~]
  1821. [OTHER   ]^P0;^P
  1822. [~]
  1823. [~]
  1824. [~]
  1825. [~]
  1826. **P10U3 2
  1827. [~]
  1828. [Enginrng]
  1829. [Scale   ]
  1830. [~]
  1831. [~]
  1832. [1"=10'  ]120.0;
  1833. [1"=20'  ]240.0;
  1834. [~]
  1835. [1"=30'  ]360.0;
  1836. [1"=40'  ]480.0;
  1837. [~]
  1838. [1"=50'  ]600.0;
  1839. [1"=60'  ]720.0;
  1840. [~]
  1841. [1"=80'  ]960.0;
  1842. [1"=100' ]1200.0;
  1843. [~]
  1844. [OTHER   ]^P0;^P
  1845. [~]
  1846. [~]
  1847. **P10U4 2
  1848. [~]
  1849. [Archtect]
  1850. [~]
  1851. [~]
  1852. [1/40"=1']480.0;
  1853. [1/20"=1']240.0;
  1854. [1/16"=1']192.0;
  1855. [ 1/8"=1']96.0;
  1856. [ 1/4"=1']48.0;
  1857. [~]
  1858. [ 1/2"=1']24.0;
  1859. [ 3/4"=1']16.0;
  1860. [   1"=1']12.0;
  1861. [   3"=1']4.0;
  1862. [   6"=1']2.0;
  1863. [  FULL  ]1.0;
  1864. [~]
  1865. [OTHER...]^P0;^P
  1866. [~]
  1867. [~]
  1868. **P10U5 2
  1869. [~]
  1870. [Metric  ]
  1871. [~]
  1872. [ 1:5000 ]5000.0;
  1873. [ 1:2000 ]2000.0;
  1874. [ 1:1000 ]1000.0;
  1875. [ 1:500  ]500.0;
  1876. [ 1:200  ]200.0;
  1877. [~]
  1878. [ 1:100  ]100.0;
  1879. [ 1:75   ]75.0;
  1880. [ 1:50   ]50.0;
  1881. [ 1:20   ]20.0;
  1882. [ 1:10   ]10.0;
  1883. [ 1:5    ]5.0;
  1884. [  FULL  ]1.0;
  1885. [~]
  1886. [OTHER...]^P0;^P
  1887. [~]
  1888. [~]
  1889. **P10ENGLISH 2
  1890. [~]
  1891. [Horizntl]
  1892. [~]
  1893. [ Sheet  ]
  1894. [ Size   ]
  1895. [~]
  1896. [A-8.5x11]11.0 8.5;
  1897. [B- 11x17]17.0 11.0;
  1898. [C- 17x22]22.0 17.0;
  1899. [   18x24]24.0 18.0;
  1900. [~]
  1901. [D- 22X34]34.0 22.0;
  1902. [   24x36]36.0 24.0;
  1903. [E- 34x44]44.0 34.0;
  1904. [~]
  1905. [OTHER...]^P0 0;^P
  1906. [~]
  1907. [VERTCAL>]$P10=P10X $P10=P10ENGVERT
  1908. [~]
  1909. [~]
  1910. **P10ENGVERT 2
  1911. [~]
  1912. [Vertical]
  1913. [~]
  1914. [ Sheet  ]
  1915. [ Size   ]
  1916. [~]
  1917. [A-8.5x11]8.5 11.0;
  1918. [B- 11x17]11.0 17.0;
  1919. [C- 17x22]17.0 22.0;
  1920. [   18x24]18.0 24.0;
  1921. [~]
  1922. [D- 22X34]22.0 34.0;
  1923. [   24x36]24.0 36.0;
  1924. [E- 34x44]34.0 44.0;
  1925. [~]
  1926. [OTHER...]^P0 0;^P
  1927. [~]
  1928. [HORZNTL>]$P10=P10X $P10=P10ENGLISH
  1929. [~]
  1930. [~]
  1931. **P10METRIC 2
  1932. [~]
  1933. [Horizntl]
  1934. [~]
  1935. [ Sheet  ]
  1936. [ Size   ]
  1937. [~]
  1938. [1189x841]1189.0 841.0;
  1939. [1000x707]1000.0 707.0;
  1940. [ 841x594]841.0 594.0;
  1941. [~]
  1942. [ 594x420]594.0 420.0;
  1943. [ 420x297]420.0 297.0;
  1944. [ 297x210]297.0 210.0;
  1945. [~]
  1946. [OTHER...]^P0 0;^P
  1947. [~]
  1948. [~]
  1949. [VERTCAL>]$P10=P10X $P10=P10METRICVERT
  1950. [~]
  1951. [~]
  1952. **P10METRICVERT 2
  1953. [~]
  1954. [Vertical]
  1955. [~]
  1956. [ Sheet  ]
  1957. [ Size   ]
  1958. [~]
  1959. [1189x841]841.0 1189.0;
  1960. [1000x707]707.0 1000.0;
  1961. [ 841x594]594.0 841.0;
  1962. [~]
  1963. [ 594x420]420.0 594.0;
  1964. [ 420x297]297.0 420.0;
  1965. [ 297x210]210.0 297.0;
  1966. [~]
  1967. [OTHER...]^P0 0;^P
  1968. [~]
  1969. [~]
  1970. [HORZNTL>]$P10=P10X $P10=P10METRIC
  1971. [~]
  1972. [~]
  1973. **P10CHTEMP 3
  1974. [Change  ]
  1975. [Template]
  1976. [~]
  1977. [Arch...]^C^C^P(progn(if v:acam(progn(command "menu" (strcat v:acam "aec-a"))+
  1978. (prompt "AEC Architectural loaded."))(prompt "AEC Architectural not available.")+
  1979. )(princ)) ^P
  1980. [Mech...]^C^C^P(progn(if v:acmm(progn(command "menu" (strcat v:acmm "aec-m"))+
  1981. (prompt "AEC Mechanical loaded."))(prompt "AEC Mechanical not available.")+
  1982. )(princ)) ^P
  1983. **P10EXCOMDS 3
  1984. [CATALOG:]^C^CCATALOG
  1985. [DEL:]^C^CDEL
  1986. [DIR:]^C^CDIR
  1987. [EDIT:]^C^CEDIT
  1988. [SH:]^C^CSH
  1989. [SHELL:]^C^CSHELL
  1990. [TYPE:]^C^CTYPE
  1991.